home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / mus / edit / WaveTracer.lha / WaveTracer / ARexx / Tonleiter.rx < prev   
Encoding:
Text File  |  1996-05-31  |  547 b   |  28 lines
  1. /* WaveTracer DS  Tonleiter              */
  2. /* © by QXC & VIRTUAL WORLDS PRODUCTIONS */
  3.  
  4. options results
  5. address 'WTRexx'
  6. GETSAMPLESIZE
  7. if result=0 then do
  8.    say 'Kein Sound vorhanden!'
  9. end
  10. else do
  11.    KEYACTION 81 /* = F2, Oktave Nummer 2 */
  12.    KEYACTION 16 /* Tonleiter */
  13.    KEYACTION 17
  14.    KEYACTION 18
  15.    KEYACTION 19
  16.    KEYACTION 20
  17.    KEYACTION 21
  18.    KEYACTION 22
  19.    KEYACTION 80 /* = F1, Oktave Nummer 1 */
  20.    KEYACTION 16 /* Tonleiter */
  21.    KEYACTION 17
  22.    KEYACTION 18
  23.    KEYACTION 19
  24.    KEYACTION 20
  25.    KEYACTION 21
  26.    KEYACTION 22
  27. end
  28.